home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / wall street boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  765b  |  18 lines
  1. 100 poke53280,0:poke53281,0
  2. 110 print"[147][159][176][192][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]";
  3. 120 a$="[171][156][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  4. 130 b$="[171][154][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  5. 140 c$="[221]  [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  6. 150 printc$;:fori=1to5:printa$c$b$c$;:next
  7. 160 print"[173][192][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]";
  8. 170 fori=217to242:pokei,peek(i)or128:next
  9. 180 a$="[146][155][162][152][157] [157] [157] [157] [157] [157] [157] [157][151][146][184][145][145][145][145][145][145][145][145]"
  10. 190 poke214,7:print"[145]";:fori=1to38:printa$;:next:print"[152]"
  11. 200 fori=1to5:reada$:gosub230:next
  12. 210 poke214,24:print"[145]"tab(15)"[155] [204][207][193][196][201][206][199] [145][157][157][157][157][157][157][157][157][157][146][175][175][175][175][175][175][175][175][175]"
  13. 220 poke46,59:poke48,59:poke50,59:poke52,160:clr:load"wallstreet",8
  14. 230 printspc(20-len(a$)/2)""a$:return
  15. 240 data"[215] [193] [204] [204][160][211] [212] [210] [197] [197] [212] [160] [215] [201] [218] [193] [210] [196]","by [215]illiam [207]. [206]elson [202]r."
  16. 250 data"[208]ublished on [204][207][193][196][211][212][193][210] #67","[211]ubscriptions 1-800-831-2694"
  17. 260 data"[195]opyright ([195]) 1989 [215]illiam [206]elson"
  18.